home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1043 / gepackt.exe / BEISPIEL / Q_SICH_O.SMD < prev    next >
Encoding:
Text File  |  1992-08-01  |  5.1 KB  |  441 lines
  1. PROGRAM Qualitätssicherung
  2. ATTRIBUTE
  3. TVCENTER
  4. DOFF
  5. OBJ_OUT
  6. TEXTFAKTOR
  7.  3.00000000000182E-0001
  8. CHAR_FILE
  9. SANS.CHR
  10. AUSDRUCKSVERGRÖßERUNG
  11.  4.00000000000000E+0000
  12. ANPASSUNG
  13. NIE
  14. LINIENDICKE
  15.  1.00000000000000E+0000
  16. RAND LINKS
  17.  3.00000000000000E+0001
  18. RAND RECHTS
  19.  4.00000000000000E+0001
  20. RAND OBEN
  21.  1.50000000000000E+0001
  22. RAND UNTEN
  23.  1.00000000000000E+0001
  24. NEUE SEITE
  25. FALSE
  26. ABSTAND
  27.  5.00000000000000E+0000
  28. ATTR_END
  29. PROCEDURE Hauptprogramm
  30. ATTRIBUTE
  31. TEXT
  32. Lädt Meßdaten, berechnet Mittelwert, Minimum und
  33. Maximum und druckt die Ergebnisse.
  34. TEXTEND
  35. GROESSE
  36.  1.00000000000000E+0000
  37. GROESSE_ROOTNAME
  38.  2.00000000000000E+0000
  39. ATTR_END
  40. BEGIN
  41. REPEAT
  42. ATTRIBUTE
  43. TEXT
  44. wiederhole bis Programm-Ende
  45. TEXTEND
  46. GROESSE
  47.  1.00000000000000E+0000
  48. ATTR_END
  49. ANWEISUNG
  50. ATTRIBUTE
  51. TEXT
  52. Bildschirm und Hauptmenü aufbauen
  53. TEXTEND
  54. GROESSE
  55.  1.00000000000000E+0000
  56. ATTR_END
  57. ANWEISUNG
  58. ATTRIBUTE
  59. TEXT
  60. Benutzeraktion einlesen
  61. TEXTEND
  62. GROESSE
  63.  1.00000000000000E+0000
  64. ATTR_END
  65. CASE
  66. ATTRIBUTE
  67. TEXT
  68. Je nach ausgewähltem Menüpunkt
  69. TEXTEND
  70. GROESSE
  71.  1.00000000000000E+0000
  72. ATTR_END
  73. BEGIN
  74. XCASE
  75. ATTRIBUTE
  76. TEXT
  77. Datei
  78. laden
  79. TEXTEND
  80. GROESSE
  81.  1.00000000000000E+0000
  82. ATTR_END
  83. ANWEISUNG
  84. ATTRIBUTE
  85. TEXT
  86. Datei-
  87. auswahl
  88. TEXTEND
  89. GROESSE
  90.  1.00000000000000E+0000
  91. ATTR_END
  92. ANWEISUNG
  93. ATTRIBUTE
  94. TEXT
  95. Datei
  96. laden
  97. TEXTEND
  98. GROESSE
  99.  1.00000000000000E+0000
  100. ATTR_END
  101. END
  102. BEGIN
  103. XCASE
  104. ATTRIBUTE
  105. TEXT
  106. Statistik
  107. zeigen
  108. TEXTEND
  109. GROESSE
  110.  1.00000000000000E+0000
  111. ATTR_END
  112. PROCEDURE Statistik
  113. ATTRIBUTE
  114. TEXT
  115. Berechnet
  116. Ergebnis
  117. TEXTEND
  118. GROESSE
  119.  1.00000000000000E+0000
  120. NAME
  121. Statistik
  122. GROESSE_NAME
  123.  1.50000000000000E+0000
  124. ATTR_END
  125. END
  126. BEGIN
  127. XCASE
  128. ATTRIBUTE
  129. TEXT
  130. Protokoll
  131. drucken
  132. TEXTEND
  133. GROESSE
  134.  1.00000000000000E+0000
  135. ATTR_END
  136. IF
  137. ATTRIBUTE
  138. TEXT
  139.  Ergebnis
  140. vorhanden?
  141. TEXTEND
  142. GROESSE
  143.  1.00000000000000E+0000
  144. ATTR_END
  145. XIF
  146. ATTRIBUTE
  147. TEXT
  148. Ja
  149. TEXTEND
  150. GROESSE
  151.  1.00000000000000E+0000
  152. ATTR_END
  153. PROCEDURE Druck
  154. ATTRIBUTE
  155. TEXT
  156. Druckt
  157. Ergebnis
  158. TEXTEND
  159. GROESSE
  160.  1.00000000000000E+0000
  161. NAME
  162. Druck
  163. GROESSE_NAME
  164.  1.50000000000000E+0000
  165. ATTR_END
  166. ELSE
  167. XIF
  168. ATTRIBUTE
  169. TEXT
  170. Nein
  171. TEXTEND
  172. GROESSE
  173.  1.00000000000000E+0000
  174. ATTR_END
  175. ANWEISUNG
  176. ATTRIBUTE
  177. TEXT
  178. Fehler-
  179. meldung
  180. TEXTEND
  181. GROESSE
  182.  1.00000000000000E+0000
  183. ATTR_END
  184. END
  185. END
  186. BEGIN
  187. XCASE
  188. ATTRIBUTE
  189. TEXT
  190. Ende
  191. TEXTEND
  192. GROESSE
  193.  1.00000000000000E+0000
  194. ATTR_END
  195. IF
  196. ATTRIBUTE
  197. TEXT
  198. Wirklich
  199.  Ende ?
  200. TEXTEND
  201. GROESSE
  202.  1.00000000000000E+0000
  203. ATTR_END
  204. XIF
  205. ATTRIBUTE
  206. TEXT
  207. Ja
  208. TEXTEND
  209. GROESSE
  210.  1.00000000000000E+0000
  211. ATTR_END
  212. ANWEISUNG
  213. ATTRIBUTE
  214. TEXT
  215. Programm-
  216.   Ende
  217. TEXTEND
  218. GROESSE
  219.  1.00000000000000E+0000
  220. ATTR_END
  221. ELSE
  222. XIF
  223. ATTRIBUTE
  224. TEXT
  225. Nein
  226. TEXTEND
  227. GROESSE
  228.  1.00000000000000E+0000
  229. ATTR_END
  230. ANWEISUNG
  231. ATTRIBUTE
  232. TEXT
  233. Nichts
  234. TEXTEND
  235. GROESSE
  236.  1.00000000000000E+0000
  237. ATTR_END
  238. END
  239. END
  240. END
  241. END
  242. END
  243.  
  244. PROCEDURE Statistik
  245. ATTRIBUTE
  246. TEXT
  247. Berechnet
  248. Ergebnis
  249. TEXTEND
  250. GROESSE
  251.  1.00000000000000E+0000
  252. GROESSE_ROOTNAME
  253.  2.00000000000000E+0000
  254. ATTR_END
  255. BEGIN
  256. ANWEISUNG
  257. ATTRIBUTE
  258. TEXT
  259. Anzahl := 0
  260. Summe  := 0
  261. TEXTEND
  262. GROESSE
  263.  1.00000000000000E+0000
  264. ATTR_END
  265. ANWEISUNG
  266. ATTRIBUTE
  267. TEXT
  268. Minimum := erster Wert
  269. Maximum := erster Wert
  270. TEXTEND
  271. GROESSE
  272.  1.00000000000000E+0000
  273. ATTR_END
  274. WHILE
  275. ATTRIBUTE
  276. TEXT
  277. Wiederhole für alle Werte
  278. TEXTEND
  279. GROESSE
  280.  1.00000000000000E+0000
  281. ATTR_END
  282. ANWEISUNG
  283. ATTRIBUTE
  284. TEXT
  285. Anzahl := Anzahl + 1
  286. Summe  := Summe + Wert
  287. TEXTEND
  288. GROESSE
  289.  1.00000000000000E+0000
  290. ATTR_END
  291. IF
  292. ATTRIBUTE
  293. TEXT
  294. Wert > Maximum
  295. TEXTEND
  296. GROESSE
  297.  1.00000000000000E+0000
  298. ATTR_END
  299. XIF
  300. ATTRIBUTE
  301. TEXT
  302. Ja
  303. TEXTEND
  304. GROESSE
  305.  1.00000000000000E+0000
  306. ATTR_END
  307. ANWEISUNG
  308. ATTRIBUTE
  309. TEXT
  310. Maximum := Wert
  311. TEXTEND
  312. GROESSE
  313.  1.00000000000000E+0000
  314. ATTR_END
  315. ELSE
  316. XIF
  317. ATTRIBUTE
  318. TEXT
  319. Nein
  320. TEXTEND
  321. GROESSE
  322.  1.00000000000000E+0000
  323. ATTR_END
  324. ANWEISUNG
  325. ATTRIBUTE
  326. TEXT
  327. Nichts
  328. TEXTEND
  329. GROESSE
  330.  1.00000000000000E+0000
  331. ATTR_END
  332. END
  333. IF
  334. ATTRIBUTE
  335. TEXT
  336. Wert < Minimum
  337. TEXTEND
  338. GROESSE
  339.  1.00000000000000E+0000
  340. ATTR_END
  341. XIF
  342. ATTRIBUTE
  343. TEXT
  344. Ja
  345. TEXTEND
  346. GROESSE
  347.  1.00000000000000E+0000
  348. ATTR_END
  349. ANWEISUNG
  350. ATTRIBUTE
  351. TEXT
  352. Minimum := Wert
  353. TEXTEND
  354. GROESSE
  355.  1.00000000000000E+0000
  356. ATTR_END
  357. ELSE
  358. XIF
  359. ATTRIBUTE
  360. TEXT
  361. Nein
  362. TEXTEND
  363. GROESSE
  364.  1.00000000000000E+0000
  365. ATTR_END
  366. ANWEISUNG
  367. ATTRIBUTE
  368. TEXT
  369. Nichts
  370. TEXTEND
  371. GROESSE
  372.  1.00000000000000E+0000
  373. ATTR_END
  374. END
  375. END
  376. ANWEISUNG
  377. ATTRIBUTE
  378. TEXT
  379. Mittelwert := Summe / Anzahl
  380. TEXTEND
  381. GROESSE
  382.  1.00000000000000E+0000
  383. ATTR_END
  384. END
  385.  
  386. PROCEDURE Druck
  387. ATTRIBUTE
  388. TEXT
  389. Druckt
  390. Ergebnis
  391. TEXTEND
  392. GROESSE
  393.  1.00000000000000E+0000
  394. GROESSE_ROOTNAME
  395.  2.00000000000000E+0000
  396. ATTR_END
  397. BEGIN
  398. ANWEISUNG
  399. ATTRIBUTE
  400. TEXT
  401. Drucker rücksetzen
  402. TEXTEND
  403. GROESSE
  404.  1.00000000000000E+0000
  405. ATTR_END
  406. ANWEISUNG
  407. ATTRIBUTE
  408. TEXT
  409. Drucke Kopf mit Datum
  410. TEXTEND
  411. GROESSE
  412.  1.00000000000000E+0000
  413. ATTR_END
  414. WHILE
  415. ATTRIBUTE
  416. TEXT
  417. Wiederhole für alle Meßwerte
  418. TEXTEND
  419. GROESSE
  420.  1.00000000000000E+0000
  421. ATTR_END
  422. ANWEISUNG
  423. ATTRIBUTE
  424. TEXT
  425.  Drucke Meßwert
  426. TEXTEND
  427. GROESSE
  428.  1.00000000000000E+0000
  429. ATTR_END
  430. END
  431. ANWEISUNG
  432. ATTRIBUTE
  433. TEXT
  434. Drucke Mittelwert, Minimum und Maximum
  435. TEXTEND
  436. GROESSE
  437.  1.00000000000000E+0000
  438. ATTR_END
  439. END
  440.  
  441.